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MISCELLANEOUS NOTES 

As everyone probably noticed, the listing in issue #1 had a few 

errors relating to lacking greater-than and less- than signs. Certain 

lines in the program should be altered. I will use a to represent 

a greater-than sign and a ”0" for a less-than sign. Correct as follows* 

210 IP L0C+64 @ -2049 THEN RETURN 
310 IP L0C-1 0 -3968 THEN RETURN 
410 IF L0C+1 @ -2049 THEN RETURN 
510 IF L0C-64 0 -3968 THEN RETURN 

Also pertaining to errors, several of you noticed that the correct 
locations for the USR function addresses are not 259 and 260, but 260 
and 261. These axe the numbers given in the finished Sorcerer Technical 
Manual , which is now in print and available for $11.95 from your local 
computer store. 

My thanks to Bob Bachman and his printer in Lansing, Michigan. Now 
I will be able to provide clear, error-free listings. 

CIRCULATION- * 

My original ad in 0N_LINE has only drawn about 30 responses so far, 
althoughthey still keep coming in. The August issue of Kilobaud Micro¬ 
computing has a letter that I sent in; this should generate some re¬ 
sponse also. My aim is to reach all users, or at least to let them 
be aware of our presence. One easy way of reaching others easily that 
I have "discovered” is to place copies of this newsletter in computer 
stores (with the owners permission, of course). Actually, this helps 
us in more ways than one. Sorcerer owners will be pleased to see that 


The Sorcerer’s Apprentice is published by Dave Bristor, 1530 Washtenaw, 
Ann Arbor, MI, 48104. For free copies, send an SASE approximately 
every month and a half. 


yes, some people are communicating ideas, and prospective buyers may 
be more likely to purchase a Sorcerer if they know that an information 
exchange does exist. Hopefully, both the user and buyer will contact 
me. I have given copies to the stores in my area, so how about you? 

You may well just come away from the store knowing more than when you 
walked in (I certainly did), and friends in computer stores never hurt 
anybody. If you think you can use some copies, whether to place in 
a store, for friends or for that other computer club, let me know 
how many you need and I'll get them out to you right away. 

RUMORS AND NEWS ABOUT EXIDY 

Do you still read ON_LINE? Then you probably already know about 
Exidy's latest releases. If not, then you can read about them here. 

Two new ROM FAC's are available- the WORD PROCESSOR and the DEVELOP¬ 
MENT PAC, and there is a VIDEO/DISK attachment. The Video/Disk unit 
houses a 12" video display using P31 phosphor and having a bandwidth 
of 20 MHz for clear pictures. Also included is a dual mini-floppy 
disk drive with a data storage capacity of 63OK bytes. Software 
included in the package includes CP/M, Z-80 assembler, text editor, 
linking loader, and Microsoft Disk Extended BASIC. All for only $2995* 

The Word Processing Pac will support either a modified Selectric or 
the Diablo/Qume proportional output printers. Either a cassette recor¬ 
der or a mini-floppy may be used for storage. The Edit mode allows 
full cursor control, Insert/Delete, Scan, Tab, Indent, Hyphen, Macros, 
pagination and titling. The Command mode has standard word processor 
functions, tape merge with memory, line length set, printer option set, 
string search, and display of unused space. File names may be up to 3 
characters. Price $99. 

Development PAC software includes a two pass Z-80 assembler, a 
text editor, and a debugger. The assembler's i/O can be vectored to 
any device driver within the Sorcerer, source and object code can be 
spooled to accomodate programs of infinite length, and absolute assem¬ 
blies and pseudo operators are supplied. The editor is line oriented, 
allowing forward cursor positioning, line insert and delete, spooling, 
and source code i/o to any device. The debugger can display and/or 
modify any register or RAM location and set breakpoints. Available 
for $99. For more info, contact Exidy directly. 



Now for those rumors I promised. Exidy has not verified these, but 
I believe my sources to be reliable enough to print what follows. 

An extended BASIC more powerful than Radio Shack's Level II will 
be available in the near future on cassette. This will be Microsoft's 
newest BASIC; it will include verbs to manipulate graphics, have long 
variable names, and other niceties. 

The upcoming color graphics board will be bit by bit programmable 
and provide for a 256 by 256 display, expandable to 512 by 512. Note 
that even the low resolution mode has a higher resolution than the 
APPLE-II's high resolution mode. This should make for some beautiful 
displays. 

PROGRAM EXCHANGE 

No, not yet, but coming soon with your help. Everyone would be 
able to benefit from a cassette software exchange, and I'd like to 
see one going as soon as possible. I still want to publish listings; 
they are generally easier for me to follow than the video. Typing in 
lines is a real pain, however, and hard-to-find mistakes always seem to 
creep in. Microcomputing is supposed to be a fun hobby, not a tedious 
one. To that end, I think a free or inexpensive exchange should be set 
up. Notice please that I said that it should be set up, not that I can 
set it up. School still has first priority over my time, and most of 
my spare time goes to this newsletter in one way or another. I'd really 
like to hear from anyone else interested in performing this service. 

Who knows? You may even make some money doing it. Please, anybody 
with ideas, let me know what we can do. 

WE ARE NOT ALONE .... 

In the user's group buisness, that is. Two other user's groups 
have come to my attention in recent weeks. One is sponsored by the 
Computer Mart of Waltham, Massachusets. You can write them at 
Computer Mart Waltham, 1395 Main Street, Waltham, Mass., 02154-. I am 
sending a copy of this issue and a letter of introduction to them; I 'll 
tell you more about their activities in the next issue. 

The other group to come to my attention is run by Steve Long, 792 
Laurie Ave., Santa Clara, CA, 95050* Steve publishes the Sorcerer 
User's Newsletter 12 times a year; subscriptions run for $10. Sample 
issues are available for the price of an SASE. Steve sent me a copy of 



his May issue which included articles on a printer driver in Basic, some 
digital to analog conversion techniques, and information regarding the 
use and operation of some programs just added to his software library. 
Steve's program already has 69 programs available for $4 apiece. He is 
also a dealer for Exidy products. 


FILES AND YOUR SORCERER 

The Sorcerer's standard has provisions for saving, from within 
a program, numerical arrays using CSAVE* and CLOAD*. These are great 
if you want to write a checkbook handling program, but not much good 
if you want to maintain an address list or phone book on tape. Of 
course, since a computer can do virtually anything, saving and reading 
character records (or arrays) is possible, but it has to be done in a 
somewhat roundabout way. I have managed to fairly successfully read 
and save character strings using the ordinary PRINT and INPUT state¬ 
ments after changing the input and output vectors from within a pro¬ 
gram. This is similar to issuing the command SE 0=S from within the 
running program, and then resetting it with SE 0=V, also from the 
running program. Once again, I have used the USR function to accomplish 
this, along with some simple machine language programming. I use 
the following routines to change the output and input with the USR 
function: 


Change 

output from 

video to tape- 

0000 

11 12 E0 

LD 

DE,0UTAPE 

0003 

0006 

FD 73 3F 

FD 72 40 

LD 

LD 

(lY+OUTADD),E 
(IY+OUTADD+i),D 

0009 

C9 

RET 


Change 

output from 

tape to 

video- 

0010 

11 IB E0 

LD 

DE, VIDEO 

0013 

FD 73 3F 

LD 

(IY+OUTADD) ,E 

0016 

FD 72 40 

LD 

(IY+OUTADD+I) ,D 

0019 

C9 

RET 

Change 

input from : 

keyboard 

to tape- 

0020 

11 OF E0 

LD 

DE,INTAPE 
(IY+INADD),E 

0023 

FD 73 41 

LD 

0026 

FD 72 42 

LD 

(lY+INADD+1) ,D 

0029 

C9 

RET 

Change 

input from 

tape to keyboard- 

0030 

11 18 E0 

LD 

DE,KEYBED 

0033 

FD 73 41 

LD 

(IY+INADD),E 

OO 36 

FD 72 42 

LD 

(IY+INADD+1),D 

0019 

C9 

RET 




The following program uses the routines to print a character string 

r 

to the tape unit and then read it hacks. 

10 INPUT "TYPE A STRING";A$ 

20 PRINT:PRINT "PUT A CASSETTE IN THE RECORDER, 

30 PRINT "START RECORDING AND ALLOW THE LEADER TO PASS 
40 INPUT "HIT RETURN WHEN READY"?XX$ 

50 POKE 260,0:POKE 261,0 
60 XX=USR(0) 

70 PRINT "" 

80 PRINT A$ 

90 POKE 260,16 
100 XX=USR(0) 

110 CLEAR 50:REM NULL ALL VARIABLES 

120 PRINT:PRINT "YOUR STRING HAS BEEN SAVED ON TAPE 

130 PRINT "AND ITS VALUE IN THE VARIABLE A$ DESTROYED 

140 PRINT:PRINT "TO RELOAD THE STRING, REWIND THE TAPE 

150 PRINT "AND PRESS PLAY 

160 INPUT "HIT RETURN WHEN READY ";XX$ 

170 POKE 260.32:POKE 26i,0 
180 XX=USR(0) 

190 INPUT XX$ 

200 INPUT A$ 

210 A$=RIGHT$(A$,LEN(A$)-1) > 

220 POKE 260,48 
230 XX=USR(0) 

240 PRINT:PRINT "THE STRING SAVED ON TAPE IS 
250 PRINT A$ 

Line 70 is apparently necessary to initialize the INPUT statements 
so that the actual string is read hack in instead of garbage on the tape. 
While in the input section of the program, you will see question marks 
printed on the screen as well as the garbage and the string itself. To 
prevent this from happening in a program, the output can he routed to 
the tape unit as well; this won’t interfere with program performance, 
hut will keep the question marks and garbage and strings from appearing 
on the screen. 

Line 210 is used to chop off the first character of the INPUT 
string. For some reason unknown to me, the first character of the 
string is a CHR$(10), or a line-feed. I can only assume that this has 
to do with the way the PRINT statement operates. 

I have used this I/O changing technique with some degree of success 
in a small address list handling program. Hopefully the program will 
he perfected in time for the next issue. 



PROGRAMS OF THE MONTH 


RACETRACK 

contributed by Marvin Weingast . 

From Marvins "This program is similar to the one published in 
issue #1 except that the machine language subroutine, which is a little 
different from yours, is inside a FOR-NEXT loop. This allows the mo¬ 
ving spot, in this case a blinking star, to be moving all the time. 

The rate of blinking or the speed of the star can be changed with mi¬ 
nor programming changes. 

"The object of the game is to maneuver the star around the track, 
or alternatively to erase the track borcers using the star. 

"To start the motion of the star press 2, 4, 6, or 8, which con¬ 
trol the direction in the same manner as your program. Press 2, 4, 6, 
or 8 to change the direction. To stop press 5*" 

’ LUNAR LANDER 
contributed by Bob Bachman 

Lunar Lander is one of the truly classic computer games, second 
only to Startrek in use. Bob's version not only provides the captain 
with the usual velocity, distance, and fuel remaining statistics, but 
it gives him a graphical display of his distance from the lunar surface. 
Give your friends a try at this one, then try to keep them away. 

CRAPS 

contributed by yours truly 

I dug this one out of my high school senior scrapbook. It was a 
project for my first ever computer class. I wrote it three years 
ago, but have since refined it somewhat. 

As with all the programs I present, I like to bring in something 
new if at all possible. This program uses the statement PRINT CHR$(X) 
to control the position of the cursor. The following table gives the 
various values to move the cursors 

1 - cursor left 
12 - clear screen 
17 - cursor home 
19 - cursor right 
23 - cursor up 
26 - cursor down 

You will probably want to use the controls with PRINT CHR$(X);. 

Note that semi-colon! It is not a typo, and if you leave it off when 
trying to position the cursor (light, left, up, down) you may not get 



the results you want, I 'll leave you with this to play around with 
and, learn about on your own, 

MORE MISCELLANEOUS 

Otto Borufsen of Sor-Audnedal, Norway, is our first international 
member. Congratulations, Otto. 

I am working on some hardware-software designs for a beeper, a pair 
of joysticks, and a light pen. I will print schematics and f ull info 
as soon as any of them are finished. Hopefully, this will be in the 
next issue. 

Kilobaud-Microcomputing has published a letter I sent them about 
seeking more members, and it is working. I am receiving several re¬ 
quests daily. My personal thanks to KB. 

More material is needed.for printing, as is almost always the case. 
Almost anything is acceptable; book reviews, hardware reviews, soft¬ 
ware, indeed, anything pertaining to the use of a Sorcerer. Let's 
all help each other! 

This issue looks like about eight pages as of now. For now, I 
can and will absorb printing and special mailing costs, but if this 
newsletter grows the way I would like it to, I will have to start 
charging for subscriptions eventually. I would appreciate your views 
on this subject, i.e. what you think would be reasonable, should the 
format be changed to fit more on a page, should I take in advertise¬ 
ments, etc., etc. I'd like to hear from you . 



The following was contributed by Terry Calverts 

CROSS REFERENCE BETWEEN EXIDY SORCERER AND TRS-80 1 Expansion Interface Jack 


Function 

Exidy Pin # 

TRS-80 Pin 4* Comment 

DATA 0 

37 

30 

1 

40 

22 

2 

39 

32 

3 

42 

26 

4 

41 

18 

5 

44 

28 

6 

43 

24 

7 

46 

20 

ADDR 0 

29 

25 

1 

32 

27 

2 

31 

40 

3 

34 

34 

4 

33 

31 

5 

36 

35 

6 

35 

38 

7 

38 

36 

8 

21 

11 

9 

24 

17 

10 • 

23 

4 

11 

26 

O 

s 

12 

30 

5 

13 

27 

6 

14 

28 

10 

15 , 

25 

7 

Clock 0 1 

10 


_0 2 

13 


PRESET 

1 



HIT 

2 

14 

TRS; INTAK« Interrupt Ack output 

MI 

16 

21 

INT - Interrupt input *Kaskable 

WAIT 

3 

33 

Processor wait for memory 

Data Buss 

4 


Exidy} 

BUSS REQUEST 

5 



NMI 

6 


Exidy; Nonmaskable interrupt 

BUSS ACK 

7 



BUSS DIRECTION 

8 

23 

determines input/output direction 

RAM CONTROLS 




RAM DRIVER 

9 


Exidy; also ROM ENABLE 

REFRESH 

19 



RD 

17 

15 

Memory Read Strobe 

WR 

20 

13 

Memory write strobe 

MUX 


16 

Multiplexor control for dynamic Rams 

HAS 


1 

Row address strobe " " " 

CAS 


3 

Column address strobe " " " 

K REQ 

15 



U.P. 8K 

14 



ROM PRE 

11 



I/O 

48 

12 

TRS; CUT= Peripheral write strobe out 



19 

IN = Peripheral read strobe out 

I/O REQUEST 

18 



RESET 

45 

2 

Exidy; Pin 12- RESET ACK 

HALT 

22 



+5V. 


39 


GND 

49,50 

8,29,37 


Unused 

47 





Thanks to Marvin Weingast: Part One of a Five Part Series- 
A SH0RT tour OF BASIC—ERATA 

22 Mar 79 

p. 1, line 23 Add sentence* TE^ri Kir ,•+. . _ 

‘S’s, b 5pK sel£ works the .« 

p.13,line 5 Replace: "a=a+ 1 " 

By: " A is equal to A+1 M . 

p. 60/line 15 Replace- 4 .. • _ 

piac e. to stimulate dice. 

By: -to simulate dice. 

P-64/line 1 Add line: 

60 PRINT B? 

P-69 Add section: string Space 

(see below) 

P. 71/lines Replace: ORANGE? 

o and 9 


By: 


URANGE? 


Note that ORANGE? is not a 

contains the reserved word OR? nai " e ' SlnCe ifc 


p.A-1 


after 

p.G-2 


Add: RIGHT? 

STEP 

Add Appendix H: 
(see below) 


The function USR(X) 


(L2) 


String space 


i&slfHll rd is B S? c t ^ e 1 r ^°-t r o ft”-«y 

reserves for strings, string variables, 

?he total^number S Qf SctLs^n £1 S ° byteS ^ers,; if 

aracters m all your string constants, 

variables, and arrays is more then 50 ‘ you win 4 - 

ou, you will get an OS error 

message. tin fact, you will get the OS message even sooner 

since standard BASIC uses some of the string space for its ' 
own purposes.) 



Page 2 


PART 2 



Example: 

TO FOR X=1 TO 100 
20 PRINT X, 

30 LET A $=A$+ n A n 
40 PRINT A$ 

50 NEXT 

ThiS P ” 9r “ wil1 « os error at x=26 . 

CLEAR <numerical expression. 

When Sorcerer sees thia „ 

S1 °„ and then fi -t evaluates the expres- 

Examples*--- 

This command produces tM 

CLEAR 100 " UC String space 

100 bytes 

CLEAR 999 

999 bytes 

CLEAR X+y 

the number of spaces 

to the value 
Of X+Y. 



FND'BRlfim LISTIflS 

/ * * fi. A a: taack * + 


z 

(<Cfx 

* /*-?. WS(A/(r4$T jt 

5 

P/Ll A* T 

C. HP. iC/i) 

to 

Fo*. X = 

■5 7-o 3-5* 

1 o 

Force 

-3c?c?tf t u X / /77 

3o 

M-yr 

X 

to 0 


x ~ “ 7 TO 7 

It 0 

potce 

- 2 ? 6 S^y* V^/77 

1 Z -O 

Fone 

t 6 H X X/ / 77 

t b o 

/*eyrr 

A 

Zoo 

Fo<l ' 

i 

X = o to 4 

2~! o 

Force 

-3/73-6VjTX / /7? 

Z'liP 

Porze 

-/* 6 V yX/7 7 

2 30 

A/&Y T 

X 

3 oo 

For 

X~~t O To / O 

3 to 

potce 

^ ^ O 0 O (•/ )( X !")“) 

izo 

Po k e 

-2.?i0 -i- in % X /-p~ 

33o 

/oe*T 

>< 

Ho o 

FOF 

X~ 0 To Ho 

Hto 

poK£ 

-Z 360 *■ X y /77 

Vio 

porze 

— 36 Vo F X, / 77 

V3o 

Afy7 

X 


SoO 2 i, -Z994 

^OS T f z ) 



S/o 
5 xo 
Szi 
S V~L 
5xb 


Data UoS.i 7 3 

f f/jS 

FOA Z- l To °! 

4,6 



Potc *r A,& 
AstYr T 


Qoo 

Fofl. 5-0 

To !oo 0 


S/0 

D S ~ vS/t'CbS): 'a/# = (Pee/zcjlJj 

6/S 

l F w £ < y CFF p/oj TM<? ^ 

T$ £ 

6x^ 

6- (Tf)-*Z 


loo 

(F lb- S 

P'-(> v 


1(0 

IF 6 " £ 

T//«f/w /=> - / 


Izo 

iF b z v 

p -/ 


7}o 

/ /= £ - z 

P - SH 


IhO 

IF 6 = S 

rue* p z 0 


if oo 

Z'Z+P 



<t$Q 

Porte 2 
^ < 

t HI- 


VS* 

poA /4 = 

0 To t o .' Ast~*T A 


%lo 

Portte- 2. 

/3i 


Wo 

x- 

rC> ^/w?*r * 


<Tot? 

As<? yj 

5 


(Oo o 

tr/^o 





10 

20 

30 

40 

50 

60 

70 

30 


PRINTCHR$(12) 

PRIMT”- 

PRINTjPRINJT 
PRINT:INPUT"DO 


IF Q$: 
PRINT 
PRINT 
PR I NT 


LUNAR LANDING SIMULATION 


’N” THEN 


YOU 

270 


WANT INSTRUCTIONS" ;9$:PRINT 


YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL 


90 PRINT"CONTROL 500 FEET ABOVE 
100 PRINT"DOWMWARD VELOCITY OF 
IN." 


A GOOD LANDING SPOT. YOU HAVE A"’ 
0 FT/SEC. 15 0 UNITS OF FUEL REM A 


1 10 PRINT 
120 PRINT"HERE 
130 PRINT"!1) 
MING” 

140 PRINT” 

150 PRINT”(2) 
160 PRINT" 

r* »t 


ARE THE RULES THAT 
AFTER EACH SECOND, 


GOVERN YOUR SPACE VEHICLE:” 

THE HEIGHT, VELOCITY, AND REM AI 


FUEL WILL BE REPORTED." 

REP0RT » A ' WILL PE TYPED. ENTER THE" 
NUMBc.R OF UNITS OF FUEL YOU WISH TO BURN D"RING TH 


170 PRINT" 
ENT" 

180 PRIMT" 

190 PRINT"(3) 
OR" 

200 PRINT" 

210 PRINT"(4) 
220 PRINT" 


NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YO r, P DESC 


BY 1 FT/SEC." 

THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC 


30 UNITS OF FUEL PER SECOND.” 

WHEN YOU CONTACT THE LUNAR SURFACE 
WILL AUTOMATICALLY CUT OFF AND YOU 


YOUR ENGINE" 
WILL BE GIVEN 


A 


230 PRINT" 

240 PRINT" (5) 
EAR," 

250 PRINT" 

IL" 


REPORT OF YOU LANDING SPEED 
IF YOU RUN OUT OF FUEL, THE 


AND REM A®IN G FUEL. 
' ?' WILL NO LON GER 


BUT YOUR SECOND-BY-SECOND REPORT WILL CONTINUE 


APP 

UNT 


263 PRINT" YOU CONTACT THE LUNAR SURFACE.": PRINT 
270 I NP'JT"PU3H RETURN WHEN READY" :3$ 

230 PRINTCHRSC1?) 


290 PRINT"B EG INNIMG LANDING PROCEDURE 
300 PRINT"G OOD LUCK!!’" 

310 PRINT 

320 PR IM T"SEC ff ET SPEED FUFl 

330 PRIMT 


: PRUT 


PLOT OF DISTANCE 


340 T = 0 


350 H=500 
360 V=50 
370 F=150 
330 PRINT 
390 PRINT 
400 PRINT 


T ;TA8 (4);H;TAB(l2):V* T4P(?0) ; F ; 
TAB(25):CHR$C16R): 

TAB CH/ 1 5+26) :CHR$ ( 1 59) :CHR$ ( 1 5<*) 






410 INPUTS 

420 IF 3<0 THEM 570 

430 IF 3>30 THEM 3=30 

440 IF 3>F THEN 3 = F 

4-50 Vl=V-S+5 

460 F = F-B 

470 H=H-.5*(V+V1 ) 

480 IF H<=0 THEN 590 
490 T=T+1 
500 V = V1 

510 IF F>0 THEN 3*0 
520 IF 3=0 THEN 540 
530 PRINT"****OUT OF FUEL****" 

540 PRINT T; T AB (4) ;H ;T4B (1 2):;T 43 (20) :F: 

550 PRINT TAB(25);CHR$(163); 

560 PRINT T4B(H/15+26) :CHR$( 159) :CHR$M58) 

570 B =0 
530 GOTO 450 

590 PRINT"****CONT4CT****" 

600 H=H+.5*(V+V1) 

6 10 IF B = 5 THEN 640 

620 D=(-V+SQR(V*V+H*(10-2*8)))/(5-B) 

630 GOTO 650 

640 D=H/U 

650 Vl=V+(5-B)*D 

660 PRI NT"TOUCHDOWN 4T";T+DSECONDS.” 

670 PRINT"L ANDI NG VELOCITY: " :V I :"FEET/SEC . " 

530 PR IN TF:"UN ITS OF FUEL REGAINING." 

690 IF V1<>0 THEN 730 

700 PRINT"CONGR4TULATIONS! A PERFECT LANDING!" 

710 PRI NT"YOUR LICENSE WILL BE RENEWED.LATER" 

720 GOTO 760 

730 IF ABS(V1)<2.5 THEN 840 

740 PRINT"******SORRY, BUT YOU BLEW IT!!!!!" 

750 PRINT"CONDOLENCES TO YOUR NEXT OF v IN" 

760 PR IN T:PR IN T:PR IN T 

770 PRINT"ANOTHER MISSION? (Y/N) 

780 INPUT Z$ 

790 IF Z$="N" THEN 310 
800 GOTO 230 

310 PR INT"CONTROL CENTRAL, OUT, SO LONG" 

320 PRINT:PRINT:PR IN T: PRINT 
830 GOTO 370 

343 PRINT"TOUCH DOWN WAS A LITTLE RO'fGH, RUT YOU SURVIVED’ 1 " 

850 PRINTSPRINT:PRINT 

360 GOTO 770 

370 END 

READY 




10 REN • CRAPS'BY DAVE BRISTOR 

20 REM WRITTEN SPRING 1976 
30 REM REVISED SUMMER 1979 


40 REM INITIALIZE RANDOM NUMBER GENERATOR 
50 D=RND(-RND(5)) 

S0 PRINT CHRS(IB) 

70 PRINT SPRINT" 

80 PRINT sPRIN T"DO YOU NEED 
90 INPUT A $:IF LEFT$(A$,1)<>"N 
100 PRINT sPRINT"OKAY THEN, I’M 
110 C=1 :M = 0 


***CR APS*** 
INSTRUCTIONS "s 

THEN GOSUB630 sGOTO110 
GAME. 


120 REM INPUT LOOP TO LINE 190 
130 PRINT "TYPE ROLL 

140 INPUT R$:IF R$="ROLL" THEN M=0sGOTO210 
150 M=M+1 

160 ON M GOTO 170 ,130,190 

170 PRINT:PRINT"PLEASE ROLL "::GOTO140 

180 PRINT:PRINT"I SAID ROLL!!! ";:GOTO140 

190 PRINT:PRINT"OKAY THEN, I QUIT!!!!!!":GOTO790 

200 REM ROLL DICE 

210 X = I NT(RND(1)*6+ 1 ) 

220 Y = INT(RND C1)*6+l) 


230 S = X+Y 

240 IF C=1 THEN FST=S 
250 GOSUB340 

260 REM CHECK FOR WIN 

270 IF C=1 AND CS=7 OR S=ll) THEN400 

230 IF C>t AND S=FST THEN 400 

290 REM CHECK FOR LOSE 

300 IF C=1 AND (S=2 OR S=3 OR S=l?) 

310 IF C>1 AND 5 = 7 THEN 470 

320 C=C+1 


THEN470 


330 GOTO 130 

340 REM PRINT ROLL SUBROUTINE 

350 IF S=8 OR S=11 THEN GOTO380 
360 PRINT SPRINT"THAT’S A"jXs"AND A” • 
370 GOTO 390 

380 PRINT SPRINT"LOOKS LIKE A"*Xs"AND 
390 RETURN 

400 REM ***wIN*** 


Ys 


A 


, WHICH MAv-ES FOR A" 
sYs"-A TOTAL OF"sS 


410 

420 

430 

440 

450 

460 


PRINTsPRINT" YOU WON!!!! 

IF C«3 THEN PRINT SPRINT"LUCvY FINGERS, DUDE"sG0T0450 
IF C<6 THEN PRINTSPRINT"NOT BAD FOR AN AMATEUR"sG0T045« 

ddJ I !I :PRINT ”'' /ELL FINALLY! AT LEAST YOU WON . ” s G0T045 0 
PRINTSPRINT"YOU HIT IT LUCKY ON ROL! NUMBER"*C 
GOTO530 ' ’ 




470 REM **LOST*** 

480 PR I NT: PRINT" AHA-YOU LOSE! 

490 IF C<3 THEN PR INT:PRINT"TH4T DIDN'T TAKE LONG, DID IT ?":GOT 
0520 

500 IF C<6 THEN PRINT :PRINT"KEEP UP THE GOOD WORv, PAL":GOTO520 
510 PRINT :PRINT"DOWN THE DRAIN AFTER ALL THAT!”:GOTO520 
520 PRINT jPR INT"Y0'J BLEW IT ON ROLL":C 
530 REM ***ROLL NUMBER*** 

540 IF C<3 THEN PRINT:PR INT"TRY AGAIN, HOTSHOT ";:GOTO570 

550 IF C<6 THEM PRINT:PRINT"WHY NOT GIVE IT ANOTHER TRY "::G0T05 

70 

560 PRINT :PRIN T"ONCE MORE ";:GOTO570 
570 INPUT A$ 

530 IF LEFT$(A$,1)<>"N" THENl10 

590 PRINT:PRINT"OKAY, THANKS FOR PLAYING. BYE! 

600 PRINT 
610 END 

620 REM INSTRUCTIONS 

630 PRINT CHR$(l2) 

640 PRINT 

650 PRINT" CRAPS IS A DICE GAME. YOU WIN OR LOSE DEPENDING 
660 PRINT"ON WHAT YOU ROLL. 

670 PRINT 

680 PRINT” TO WIN, JUST ROLL A 7 OR AN 11 ON YOUR FIRST 
690 PRINT"ROLL (HAD, OR ROLL YOUR FIRST NUMBER ON ANY 
700 PR INT”SUCCEEDING ROLL. 

710 PRINT 

720 PRINT" TO LOSE, MAKE YOUR FIRST ROLL A 2, A 3, OR A 12. 

730 PRINT”OR, YOU CAN LOSE BY ROLLING A 7 ANY TIME AFTER 
740 PRINT"YOUR FIRST ROLL. NOW ISN'T THAT EASY ? 

750 PRINT 

760 PRINT" GET READY NOW, 'CAUSE HERE WE GO... 

770 PRINT 
730 RETURN 
790 END 
READY 



